# Current, as of Thursday, May 28, 2020.
# rm(list = ls())
# setwd("~/Dropbox/Base Dropbox/List Experiment Paper (PS)/Conditional Accept/Replication Files (Carmines-Schmidt PS)/2008 CCAP/Partisanship & Ideology Models")
library(foreign)
library(car)
library(readstata13)
library(zeligverse)
library(ggplot2)
#-----
# Input the data.
our.data = read.dta13("CarminesSchmidtPS-replication-2008.dta", generate.factors = TRUE)
names(our.data)
#-----
# Subset the data into only respondents that were assigned to either the BASELINE or AFRICAN AMERICAN treatment conditions; 
# drop people that identified as black. 
afroam.experiment = subset(our.data, treatment=="African Americans" | treatment=="Control")
afroam.experiment = subset(afroam.experiment, black!=1)
#-----
# Model: treatment effects as function of PARTISANSHIP. 
our.model = lm(item_count ~ afroam_binary + republican + democrat + 
                 afroam_binary*republican + afroam_binary*democrat, 
               data = afroam.experiment)
summary(our.model)

# Simulate: treatment effects for REPUBLICANS.
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$republican*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$democrat*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for REPUBLICANS.
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + republican + democrat + 
                interaction1 + interaction2,  
              model = "normal", data = afroam.experiment)
z.out
# REPUBLICANS in the BASELINE condition. 
x.low = setx(z.out, 
             afroam_binary = 0,
             republican = 1,
             democrat = 0,
             interaction1 = 0,
             interaction2 = 0)
# REPUBLICANS in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              republican = 1,
              democrat = 0,
              interaction1 = 1,
              interaction2 = 0)
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effects for REPUBLICANS. 
LB.gop = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.gop = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.gop = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate: treatment effects for DEMOCRATS. 
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$republican*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$democrat*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for DEMOCRATS. 
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + republican + democrat +
                interaction1 + interaction2,  
              model = "normal", data = afroam.experiment)
z.out
# DEMOCRATS in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             republican = 0,
             democrat = 1,
             interaction1 = 0,
             interaction2 = 0)
# DEMOCRATS in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              republican = 0,
              democrat = 1,
              interaction1 = 0,
              interaction2 = 1)
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effects for DEMOCRATS. 
LB.dem = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.dem = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.dem = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate: treatment effects for INDEPENDENTS.
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$republican*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$democrat*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for INDEPENDENTS.
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + republican + democrat +
               interaction1 + interaction2,  
              model = "normal", data = afroam.experiment)
z.out
# INDEPENDENTS in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             republican = 0,
             democrat = 0,
             interaction1 = 0,
             interaction2 = 0)
# INDEPENDENTS in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              republican = 0,
              democrat = 0,
              interaction1 = 0,
              interaction2 = 0)
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effect for INDEPENDENTS. 
LB.ind = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.ind = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.ind = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))
#-----
# Model: treatment effects as function of IDEOLOGY.
our.model = lm(item_count ~ afroam_binary + conservative + liberal +
                 afroam_binary*conservative + afroam_binary*liberal, 
               data = afroam.experiment)
summary(our.model)

# Simulate: treatment effects for CONSERVATIVES.  
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$conservative*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$liberal*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for CONSERVATIVES in the treatment condition. 
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + conservative + liberal + 
                interaction1 + interaction2,  
              model = "normal", data = afroam.experiment)
z.out
# CONSERVATIVES in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             conservative = 1,
             liberal = 0,
             interaction1 = 0,
             interaction2 = 0)
# CONSERVATIVES in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              conservative = 1,
              liberal = 0,
              interaction1 = 1,
              interaction2 = 0)
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effect for CONSERVATIVES. 
LB.con = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.con = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.con = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate: treatment effects for LIBERALS.
# Set up the interaction terms. 
interaction1 = afroam.experiment$conservative*afroam.experiment$afroam_binary
interaction2 = afroam.experiment$liberal*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for LIBERALS.
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + conservative + liberal +
                interaction1 + interaction2,  
              model = "normal", data = afroam.experiment)
z.out
# LIBERALS in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             conservative = 0,
             liberal = 1,
             interaction1 = 0,
             interaction2 = 0)
# LIBERALS in the AFRICAN-AMERICAN condition. 
x.high = setx(z.out, 
              afroam_binary = 1,
              conservative = 0,
              liberal = 1,
              interaction1 = 0,
              interaction2 = 1)
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effect for LIBERALS.   
LB.lib = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.lib = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.lib = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate: treatment effects for MODERATES.
# Set up the interaction terms. 
interaction1 = afroam.experiment$conservative*afroam.experiment$afroam_binary
interaction2 = afroam.experiment$liberal*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for MODERATES.
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + conservative + liberal +
                interaction1 + interaction2,  
              model = "normal", data = afroam.experiment)
z.out
# MODERATES in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             conservative = 0,
             liberal = 0,
             interaction1 = 0,
             interaction2 = 0)
# MODERATES in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              conservative = 0,
              liberal = 0,
              interaction1 = 0,
              interaction2 = 0)
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effect for MODERATES. 
LB.mod = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.mod = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.mod = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))
#-----
# Point estimates.
# round(cbind(PE.lib, PE.mod, PE.con, PE.dem, PE.ind, PE.gop), digits = 2)
# Lower bounds.
# round(cbind(LB.lib, LB.mod, LB.con, LB.dem, LB.ind, LB.gop), digits = 2)
# Upper bounds.
# round(cbind(UB.lib, UB.mod, UB.con, UB.dem, UB.ind, UB.gop), digits = 2)
#-----
# Model: treatment effects as function of PARTISANSHIP and additional covariates. 
our.model = lm(item_count ~ afroam_binary + republican + democrat +
                 republican*afroam_binary + democrat*afroam_binary +
                 ideology + female + white + education + church + rr +
                 obama_favor + interest + income,  
               data = afroam.experiment)
summary(our.model)

# Simulate: treatment effects for REPUBLICANS, controlling for confounding variables. 
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$republican*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$democrat*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for REPUBLICANS.
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + republican + democrat +
                interaction1 + interaction2 +
                ideology + female + white + education + church + rr +
                obama_favor + interest + income,  
              model = "normal", data = afroam.experiment)
z.out
# REPUBLICANS in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             republican = 1,
             democrat = 0,
             interaction1 = 0,
             interaction2 = 0,
             ideology = mean(afroam.experiment$ideology, na.rm=TRUE),
             female = median(afroam.experiment$female, na.rm=TRUE),
             white = median(afroam.experiment$white, na.rm=TRUE),
             education = median(afroam.experiment$education, na.rm=TRUE),
             church = median(afroam.experiment$church, na.rm=TRUE),
             rr = mean(afroam.experiment$rr, na.rm=TRUE),
             obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
             interest = median(afroam.experiment$interest, na.rm=TRUE),
             income = median(afroam.experiment$income, na.rm=TRUE))
# REPUBLICANS in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              republican = 1,
              democrat = 0,
              interaction1 = 1,
              interaction2 = 0,
              ideology = mean(afroam.experiment$ideology, na.rm=TRUE),
              female = median(afroam.experiment$female, na.rm=TRUE),
              white = median(afroam.experiment$white, na.rm=TRUE),
              education = median(afroam.experiment$education, na.rm=TRUE),
              church = median(afroam.experiment$church, na.rm=TRUE),
              rr = mean(afroam.experiment$rr, na.rm=TRUE),
              obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
              interest = median(afroam.experiment$interest, na.rm=TRUE),
              income = median(afroam.experiment$income, na.rm=TRUE))
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effect for REPUBLICANS. 
LB.gop = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.gop = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.gop = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate, treatment effects for DEMOCRATS, controlling for confounding variables. 
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$republican*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$democrat*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for DEMOCRATS. 
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + republican + democrat +
                interaction1 + interaction2 +
                ideology + female + white + education + church + rr +
                obama_favor + interest + income,  
              model = "normal", data = afroam.experiment)
z.out
# DEMOCRATS in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             republican = 0,
             democrat = 1,
             interaction1 = 0,
             interaction2 = 0,
             ideology = mean(afroam.experiment$ideology, na.rm=TRUE),
             female = median(afroam.experiment$female, na.rm=TRUE),
             white = median(afroam.experiment$white, na.rm=TRUE),
             education = median(afroam.experiment$education, na.rm=TRUE),
             church = median(afroam.experiment$church, na.rm=TRUE),
             rr = mean(afroam.experiment$rr, na.rm=TRUE),
             obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
             interest = median(afroam.experiment$interest, na.rm=TRUE),
             income = median(afroam.experiment$income, na.rm=TRUE))
# DEMOCRATS in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              republican = 0,
              democrat = 1,
              interaction1 = 0,
              interaction2 = 1,
              ideology = mean(afroam.experiment$ideology, na.rm=TRUE),
              female = median(afroam.experiment$female, na.rm=TRUE),
              white = median(afroam.experiment$white, na.rm=TRUE),
              education = median(afroam.experiment$education, na.rm=TRUE),
              church = median(afroam.experiment$church, na.rm=TRUE),
              rr = mean(afroam.experiment$rr, na.rm=TRUE),
              obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
              interest = median(afroam.experiment$interest, na.rm=TRUE),
              income = median(afroam.experiment$income, na.rm=TRUE))
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effects for DEMOCRATS. 
LB.dem = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.dem = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.dem = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate, treatment effects for INDEPENDENTS, controlling for confounding variables. 
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$republican*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$democrat*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for INDEPENDENTS.
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + republican + democrat +
                interaction1 + interaction2 +
                ideology + female + white + education + church + rr +
                obama_favor + interest + income,  
              model = "normal", data = afroam.experiment)
z.out
# INDEPENDENTS in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             republican = 0,
             democrat = 0,
             interaction1 = 0,
             interaction2 = 0,
             ideology = mean(afroam.experiment$ideology, na.rm=TRUE),
             female = median(afroam.experiment$female, na.rm=TRUE),
             white = median(afroam.experiment$white, na.rm=TRUE),
             education = median(afroam.experiment$education, na.rm=TRUE),
             church = median(afroam.experiment$church, na.rm=TRUE),
             rr = mean(afroam.experiment$rr, na.rm=TRUE),
             obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
             interest = median(afroam.experiment$interest, na.rm=TRUE),
             income = median(afroam.experiment$income, na.rm=TRUE))
# INDEPENDENTS in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              republican = 0,
              democrat = 0,
              interaction1 = 0,
              interaction2 = 0,
              ideology = mean(afroam.experiment$ideology, na.rm=TRUE),
              female = median(afroam.experiment$female, na.rm=TRUE),
              white = median(afroam.experiment$white, na.rm=TRUE),
              education = median(afroam.experiment$education, na.rm=TRUE),
              church = median(afroam.experiment$church, na.rm=TRUE),
              rr = mean(afroam.experiment$rr, na.rm=TRUE),
              obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
              interest = median(afroam.experiment$interest, na.rm=TRUE),
              income = median(afroam.experiment$income, na.rm=TRUE))
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effects for INDEPENDENTS. 
LB.ind = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.ind = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.ind = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))
#-----
# Model: treatment effects as function of IDEOLOGY and additional covariates. 
our.model = lm(item_count ~ afroam_binary + conservative + liberal +
                 afroam_binary*conservative + afroam_binary*liberal +
                 pid_7 + female + white + education + church + rr +
                 obama_favor + interest + income, 
               data = afroam.experiment)
summary(our.model)

# Simulate: treatment effects for CONSERVATIVES, controlling for confounding variables. 
# Set up the interaction terms. 
afroam.experiment$interaction1 = afroam.experiment$conservative*afroam.experiment$afroam_binary
afroam.experiment$interaction2 = afroam.experiment$liberal*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for CONSERVATIVES. 
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + conservative + liberal + 
                interaction1 + interaction2 + pid_7 + female + white + 
                education + church + rr + obama_favor + interest + income,
              model = "normal", data = afroam.experiment)
z.out
# CONSERVATIVES in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             conservative = 1,
             liberal = 0,
             interaction1 = 0,
             interaction2 = 0,
             pid_7 = mean(afroam.experiment$pid_7, na.rm=TRUE),
             female = median(afroam.experiment$female, na.rm=TRUE),
             white = median(afroam.experiment$white, na.rm=TRUE),
             education = median(afroam.experiment$education, na.rm=TRUE),
             church = median(afroam.experiment$church, na.rm=TRUE),
             rr = mean(afroam.experiment$rr, na.rm=TRUE),
             obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
             interest = median(afroam.experiment$interest, na.rm=TRUE),
             income = median(afroam.experiment$income, na.rm=TRUE))
# CONSERVATIVES in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              conservative = 1,
              liberal = 0,
              interaction1 = 1,
              interaction2 = 0,
              pid_7 = mean(afroam.experiment$pid_7, na.rm=TRUE),
              female = median(afroam.experiment$female, na.rm=TRUE),
              white = median(afroam.experiment$white, na.rm=TRUE),
              education = median(afroam.experiment$education, na.rm=TRUE),
              church = median(afroam.experiment$church, na.rm=TRUE),
              rr = mean(afroam.experiment$rr, na.rm=TRUE),
              obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
              interest = median(afroam.experiment$interest, na.rm=TRUE),
              income = median(afroam.experiment$income, na.rm=TRUE))
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effects for CONSERVATIVES.
LB.con = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.con = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.con = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate: treatment effects for LIBERALS, controlling for confounding variables.
# Set up the interaction terms. 
interaction1 = afroam.experiment$conservative*afroam.experiment$afroam_binary
interaction2 = afroam.experiment$liberal*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for LIBERALS.
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + conservative + liberal + 
                interaction1 + interaction2 + pid_7 + female + white + 
                education + church + rr + obama_favor + interest + income,
              model = "normal", data = afroam.experiment)
z.out
# LIBERALS in the BASELINE condition. 
x.low = setx(z.out, 
             afroam_binary = 0,
             conservative = 0,
             liberal = 1,
             interaction1 = 0,
             interaction2 = 0,
             pid_7 = mean(afroam.experiment$pid_7, na.rm=TRUE),
             female = median(afroam.experiment$female, na.rm=TRUE),
             white = median(afroam.experiment$white, na.rm=TRUE),
             education = median(afroam.experiment$education, na.rm=TRUE),
             church = median(afroam.experiment$church, na.rm=TRUE),
             rr = mean(afroam.experiment$rr, na.rm=TRUE),
             obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
             interest = median(afroam.experiment$interest, na.rm=TRUE),
             income = median(afroam.experiment$income, na.rm=TRUE))
# LIBERALS in the AFRICAN-AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              conservative = 0,
              liberal = 1,
              interaction1 = 0,
              interaction2 = 1,
              pid_7 = mean(afroam.experiment$pid_7, na.rm=TRUE),
              female = median(afroam.experiment$female, na.rm=TRUE),
              white = median(afroam.experiment$white, na.rm=TRUE),
              education = median(afroam.experiment$education, na.rm=TRUE),
              church = median(afroam.experiment$church, na.rm=TRUE),
              rr = mean(afroam.experiment$rr, na.rm=TRUE),
              obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
              interest = median(afroam.experiment$interest, na.rm=TRUE),
              income = median(afroam.experiment$income, na.rm=TRUE))
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effects for LIBERALS. 
LB.lib = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.lib = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.lib = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))

# Simulate: treatment effects for MODERATES, controlling for confounding variables. 
# Set up the interaction terms. 
interaction1 = afroam.experiment$conservative*afroam.experiment$afroam_binary
interaction2 = afroam.experiment$liberal*afroam.experiment$afroam_binary
# Use Zelig to model the difference-in-means for MODERATES. 
set.seed(47408)
z.out = zelig(item_count ~ afroam_binary + conservative + liberal + 
                interaction1 + interaction2 + 
                pid_7 + female + white + education + church + rr +
                obama_favor + interest + income,
              model = "normal", data = afroam.experiment)
z.out
# MODERATES in the BASELINE condition.
x.low = setx(z.out, 
             afroam_binary = 0,
             conservative = 0,
             liberal = 0,
             interaction1 = 0,
             interaction2 = 0,
             pid_7 = mean(afroam.experiment$pid_7, na.rm=TRUE),
             female = median(afroam.experiment$female, na.rm=TRUE),
             white = median(afroam.experiment$white, na.rm=TRUE),
             education = median(afroam.experiment$education, na.rm=TRUE),
             church = median(afroam.experiment$church, na.rm=TRUE),
             rr = mean(afroam.experiment$rr, na.rm=TRUE),
             obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
             interest = median(afroam.experiment$interest, na.rm=TRUE),
             income = median(afroam.experiment$income, na.rm=TRUE))
# MODERATES in the AFRICAN AMERICAN condition.
x.high = setx(z.out, 
              afroam_binary = 1,
              conservative = 0,
              liberal = 0,
              interaction1 = 0,
              interaction2 = 0,
              pid_7 = mean(afroam.experiment$pid_7, na.rm=TRUE),
              female = median(afroam.experiment$female, na.rm=TRUE),
              white = median(afroam.experiment$white, na.rm=TRUE),
              education = median(afroam.experiment$education, na.rm=TRUE),
              church = median(afroam.experiment$church, na.rm=TRUE),
              rr = mean(afroam.experiment$rr, na.rm=TRUE),
              obama_favor = median(afroam.experiment$obama_favor, na.rm=TRUE),
              interest = median(afroam.experiment$interest, na.rm=TRUE),
              income = median(afroam.experiment$income, na.rm=TRUE))
# Generate simulated values. 
s.out2 = sim(z.out, x = x.low, x1 = x.high)
# Extract point estimates and confidence intervals, treatment effect for MODERATES.
LB.mod = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.050))
PE.mod = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.500))
UB.mod = as.numeric(quantile(s.out2$get_qi(qi = "fd", xvalue = "x1")[,1], 0.950))
#-----
# Point estimates for liberals, conservatives, moderates, Democrats, Republicans, independents
# round(cbind(PE.lib, PE.mod, PE.con, PE.dem, PE.ind, PE.gop), digits = 2)
# Lower bounds for liberals, conservatives, moderates, Democrats, Republicans, independents
# round(cbind(LB.lib, LB.mod, LB.con, LB.dem, LB.ind, LB.gop), digits = 2)
# Upper bounds for liberals, conservatives, moderates, Democrats, Republicans, independents
# round(cbind(UB.lib, UB.mod, UB.con, UB.dem, UB.ind, UB.gop), digits = 2)



